home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln0386.arc / ADA1.LTG < prev    next >
Text File  |  1986-03-03  |  512b  |  13 lines
  1.  
  2.                             Listing 1
  3.  
  4.      typσ ACTIO╬ i≤ (ADD¼ CHANGE¼ DELETE¼ CLEAR⌐ ╗ enumeratioε 
  5.      ACTION_TYPE║ ACTIO╬ ; -- define variable 
  6.  
  7.      casσ  ACTION_TYP┼ is
  8.  
  9.           wheε AD─  =╛  ADD(RECORD⌐ ; -- add procedure
  10.           wheε CHANG┼ =╛ CHANGE(RECORD⌐ ; -- change procedure
  11.           wheε DELET┼ ⁿ CLEA╥ =╛ DELETE(RECORD⌐ ╗ -- deletσ/clear
  12.      enΣ casσ ;
  13.